#!/usr/bin/perl
use strict;
use warnings;

my $col=10;
while (<>) {
	if (! /^$/) {
		chomp;
		my @anno = split /,/, $_;
		foreach (@anno) {
			if (/Transcript\|N[MR]_/) {
					# print $_;
					my @anno1 = split /\|/, $_;
					print "$anno1[$col]\n";
					last;

			}else {
					# print "\n";
			}

		}

	}else {
		# print "\n";
	}
}